home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / OS2 / BUBBA03.ARJ / IBMLOG.TPL < prev    next >
Text File  |  1992-03-21  |  2KB  |  108 lines
  1. echo "\rInitializing..."
  2. echo "\rAttempting to dial out..."
  3. output "+++\r"
  4. output "ATH\r"
  5. input 5 "OK"
  6. output @INITSTRING
  7. input 5 "OK"
  8.  
  9. :DIALIT
  10. set count 5
  11.  
  12. :REDIAL
  13. echo "\rAttempting to dial out..."
  14. output @TNUMBER
  15. input 60 "CONNECT"
  16. if success goto DOBBS
  17. reinput "CONNECT"
  18. if success goto DOBBS
  19. if count goto REDIAL
  20. goto NOGO
  21.  
  22. :DOBBS
  23. onlinetest "on"
  24. set count 5
  25.  
  26. :LOADBBS
  27. input 20 "Welcome"
  28. if offline goto NOGO
  29. if success goto LOGSET
  30. reinput "First"
  31. if success goto OUTFNAME
  32. reinput "Welcome"
  33. if success goto LOGSET
  34. output "\r"
  35. if count goto LOADBBS
  36. goto NOGO
  37.  
  38. :LOGSET
  39. set count 5
  40.  
  41. :FNAME
  42. input 10 "First"
  43. if offline goto NOGO
  44. if success goto OUTFNAME
  45. reinput "First"
  46. if success goto OUTFNAME
  47. output "\r"
  48. if count goto FNAME
  49. goto NOGO
  50.  
  51. :OUTFNAME
  52. output @FIRSTNAME
  53. if offline goto NOGO
  54. set count 5
  55.  
  56. :LNAME
  57. input 10 "Last"
  58. if offline goto NOGO
  59. if success goto OUTLNAME
  60. reinput "Last"
  61. if success goto OUTLNAME
  62. reinput "First"
  63. if success goto OUTFNAME
  64. output "\r"
  65. if count goto LNAME
  66. goto NOGO
  67.  
  68. :OUTLNAME
  69. output @LASTNAME
  70. if offline goto NOGO
  71. set count 5
  72.  
  73. :PASSWORD
  74. input 10 "Password"
  75. if offline goto NOGO
  76. if success goto OUTPASS
  77. reinput "Password"
  78. if success goto OUTPASS
  79. reinput "First"
  80. if success goto OUTFNAME
  81. output "\r"
  82. if count goto PASSWORD
  83. goto NOGO
  84.  
  85. :OUTPASS
  86. output @PASWORD
  87. if offline goto NOGO
  88. set count 15
  89.  
  90. :PETC1
  91. set %outtype "n"
  92. input 10 "More"
  93. if offline goto NOGO
  94. if success goto SENDIT
  95. reinput "execute"
  96. if success goto DONE
  97. set %outtype "\r"
  98. :SENDIT
  99. output %outtype
  100. if count goto PETC1
  101. goto NOGO
  102.  
  103. :DONE
  104. exit 0
  105.  
  106. :NOGO
  107. exit 1
  108.